home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / REXX3-B < prev    next >
Text File  |  1978-02-03  |  2KB  |  207 lines
  1.  /* GET INFORMATION FROM FILE AND SEND TO AV */
  2.  
  3.   
  4. ADDRESS 'AV.REXX'
  5.  
  6. call open(LNA, 'Ram:LINE1')
  7.  
  8. Thisline1 = readln(LNA)
  9.       
  10. SETVAR LINEA Thisline1
  11.    
  12.   
  13. call open(LNB, 'Ram:LINE2')
  14.  
  15. Thisline2 = readln(LNB)
  16.       
  17. SETVAR LINEB Thisline2   
  18.  
  19.  
  20. call open(LNC, 'Ram:LINE3')
  21.  
  22. Thisline3 = readln(LNC)
  23.       
  24. SETVAR LINEC Thisline3
  25.  
  26.  
  27. call open(LND, 'Ram:LINE4')
  28.  
  29. Thisline4 = readln(LND)
  30.       
  31. SETVAR LINED Thisline4  
  32.  
  33.  
  34. call open(LNE, 'Ram:LINE5')
  35.  
  36. Thisline5 = readln(LNE)
  37.       
  38. SETVAR LINEE Thisline5 
  39.  
  40.  
  41. call open(LNF, 'Ram:LINE6')
  42.  
  43. Thisline6 = readln(LNF)
  44.       
  45. SETVAR LINEF Thisline6
  46.  
  47.  
  48. call open(LNG, 'Ram:LINE7')
  49.  
  50. Thisline7 = readln(LNG)
  51.       
  52. SETVAR LINEG Thisline7
  53.  
  54.  
  55. call open(LNH, 'Ram:LINE8')
  56.  
  57. Thisline8 = readln(LNH)
  58.       
  59. SETVAR LINEH Thisline8
  60.  
  61.  
  62. call open(LNI, 'Ram:LINE9')
  63.  
  64. Thisline9 = readln(LNI)
  65.       
  66. SETVAR LINEI Thisline9 
  67.  
  68.  
  69. call open(LNJ, 'Ram:LINE10')
  70.  
  71. Thisline10 = readln(LNJ)
  72.       
  73. SETVAR LINEJ Thisline10
  74.  
  75.  
  76. call open(LNK, 'Ram:LINE11')
  77.  
  78. Thisline11 = readln(LNK)
  79.       
  80. SETVAR LINEK Thisline11
  81.  
  82.  
  83. call open(LNL, 'Ram:LINE12')
  84.  
  85. Thisline12 = readln(LNL)
  86.       
  87. SETVAR LINEL Thisline12
  88.  
  89.  
  90. call open(LNM, 'Ram:LINE13')
  91.  
  92. Thisline13 = readln(LNM)
  93.       
  94. SETVAR LINEM Thisline13
  95.  
  96.  
  97. call open(LNO, 'Ram:LINE14')
  98.  
  99. Thisline14 = readln(LNO)
  100.       
  101. SETVAR LINEN Thisline14
  102.  
  103.  
  104. call open(LNP, 'Ram:LINE15')
  105.  
  106. Thisline15 = readln(LNP)
  107.       
  108. SETVAR LINEO Thisline15
  109.  
  110.  
  111. call open(LNQ, 'Ram:LINE16')
  112.  
  113. Thisline16 = readln(LNQ)
  114.       
  115. SETVAR LINEP Thisline16
  116.  
  117.  
  118. call open(LNR, 'Ram:LINE17')
  119.  
  120. Thisline17 = readln(LNR)
  121.       
  122. SETVAR LINEQ Thisline17
  123.  
  124.  
  125. call open(LNS, 'Ram:LINE18')
  126.  
  127. Thisline18 = readln(LNS)
  128.       
  129. SETVAR LINER Thisline18
  130.  
  131.  
  132. call open(LNT, 'Ram:LINE19')
  133.  
  134. Thisline19 = readln(LNT)
  135.       
  136. SETVAR LINES Thisline19
  137.  
  138.  
  139. call open(LNU, 'Ram:LINE20')
  140.  
  141. Thisline20 = readln(LNU)
  142.       
  143. SETVAR LINET Thisline20
  144.  
  145.  
  146. call open(LNV, 'Ram:LINE21')
  147.  
  148. Thisline21 = readln(LNV)
  149.       
  150. SETVAR LINEU Thisline21
  151.  
  152.  
  153. call open(LNW, 'Ram:LINE22')
  154.  
  155. Thisline22 = readln(LNW)
  156.       
  157. SETVAR LINEV Thisline22
  158.  
  159.  
  160. call open(LNX, 'Ram:LINE23')
  161.  
  162. Thisline23 = readln(LNX)
  163.       
  164. SETVAR LINEW Thisline23
  165.  
  166.  
  167. call open(LNY, 'Ram:LINE24')
  168.  
  169. Thisline24 = readln(LNY)
  170.       
  171. SETVAR LINEX Thisline24
  172.  
  173.  
  174. call open(LNZ, 'Ram:LINE25')
  175.  
  176. Thisline25 = readln(LNZ)
  177.       
  178. SETVAR LINEY Thisline25              
  179.                              
  180.  
  181.  
  182.  
  183.   
  184.   
  185.   
  186.   
  187.   
  188.  
  189.   
  190.  
  191.  
  192.   
  193.  
  194.   
  195.    
  196.  
  197.  
  198.  
  199.    
  200.  
  201.   
  202.  
  203.    
  204.    
  205.  
  206.   
  207.